
Partial Class Admin_SubNavControls_AppSubNavControl
    Inherits System.Web.UI.UserControl
    Implements IMenu


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Dim fmsaText As String = EntityController.GetSingleDisplayName("FMSA")
            If fmsaText.ToUpper.Contains("AGENCY") Then
                Me.FMSAAgencyHyperLink.Text = "Set " & fmsaText & "(s)"
            Else
                Me.FMSAAgencyHyperLink.Text = "Set " & fmsaText & " Agency(s)"
            End If
            Me.SBAgencyHyperLink.Text = "Set " & EntityController.GetSingleDisplayName("Support Broker") & " Agency(s)"
            Me.LocalProgramHyperLink.Text = EntityController.GetSingleDisplayName("Local Program Office") & "s"
        End If
    End Sub

    Public Sub SetVisible(ByVal isVisible As Boolean) Implements IMenu.SetVisible
        Me.Visible = isVisible
    End Sub
End Class
